home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t6.d64 / star trek inst.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  10KB  |  254 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 20 GOTO100
  3. 60 GETA$:IFA$=""THEN60
  4. 70 RETURN
  5. 100 PRINT"[147][153]        STAR TREK INSTRUCTIONS
  6. 110 [153]"        TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  7. 500 PRINT"[158]WELCOME TO THE UNITED FEDERATION OF
  8. 510 [153]"PLANETS. YOUR MISSION WILL BE TO SEEK
  9. 520 PRINT"OUT AND DESTROY ALL OF THE [150]KLINGONS[158]
  10. 530 [153]"BEFORE THE TIME LIMIT RUNS OUT.
  11. 540 PRINT"YOU WILL SEE COMMAND COME UP AS WELL
  12. 550 [153]"AS HEAR THE TONE INDICATING THAT
  13. 560 PRINT"YOU MUST INPUT A RESPONSE.
  14. 570 [153]"THE COMMANDS ARE:
  15. 580 PRINT"  1  [153] NAVIGATE[158] (SET COURSE)
  16. 590 [153]"  2   PRINTSHORT RANGE SCANSYS
  17. 600 PRINT"  3  [153] LONG RANGE SCAN[158]
  18. 610 [153]"  4   FIREPRINT PHASERSSYS
  19. 620 PRINT"  5   FIRE[153] PHOTON TORPEDOS [158]
  20. 630 [153]"  6   RAISE/LOWER PRINTSHIELD STRENGTHSYS
  21. 640 PRINT"  7  [153] DAMAGE CONTROL[158] REPORT
  22. 650 [153]"  8   ENABLE PRINTLIBRARY COMPUTERSYS
  23. 660 PRINT"  9   ENABLE [153]TRACTOR BEAM[158]
  24. 670 [141]60
  25. 700 [153]"LOADTO ACTIVATE ANY OF THE DEVICES ALL YOU
  26. 710 PRINT"NEED DO IS PRESS THE APPROPRIATE NUMBER
  27. 720 [153]"KEY. FOR PRINTPHASERSSYS TYPE A 4.
  28. 730 PRINT"IF YOU MAKE AN ERROR YOU'LL GET A LIST
  29. 735 [153]"OF CORRECT INPUT PROCEDURES.
  30. 740 PRINT"THE GALAXY IS DIVIDED INTO A 9 BY 9
  31. 750 [153]"QUADRANT GRID AND EACH QUADRANT IS
  32. 760 PRINT"FURTHER DIVIDED INTO AN 8 BY 8 GRID
  33. 770 [153]"AFTER YOU HAVE BEEN ASSIGNED A STARTING
  34. 780 PRINT"POSITION YOU WILL SEE A [153]SHORT RANGE
  35. 790 [153]"SCANSYS OF YOUR PRESENT POSITION, AT THIS
  36. 800 PRINT"POINT THE SIMULATION HAS BEGUN.
  37. 810 [153]"TO PRINTNAVIGATESYS YOU WILL BE ASKED TO INPUT
  38. 820 PRINT"A DIRECTION. THE
  39. 830 [153]"COURSE IS IN A               4  3  2SYS
  40. 840 PRINT"CIRCULAR NUMERICAL            [205] [194] [206]
  41. 850 [153]"VECTOR ARRANGEMENT          5SYSANDAND(null)PEEK(null)ANDAND1SYS
  42. 860 PRINT"AS SHOWN. INTEGER OR           [206][194][205]
  43. 870 [153]"REAL VALUES MAY BE USED.      (null) PEEK (null)
  44. 880 PRINT"(IE. 1.5 IS BETWEEN 1 AND 2) 6  7  8[158]
  45. 900 [141]60
  46. 1000 [153]"LOADFOR DISTANCE YOU WILL BE ASKED FOR WARP
  47. 1010 PRINT"FACTOR. YOU CAN INPUT ANY VALUE UP TO
  48. 1020 [153]"AND INCLUDING 8. WARP 1 WILL MOVE YOU
  49. 1030 PRINT"A ONE QUADRANT DISTANCE AS 5.5 WILL MOVE";
  50. 1040 PRINT"YOU 5 AND A HALF QUADRANTS.
  51. 1050 [153]"A BIT OF PRACTICE WILL HELP WITH THINGS.
  52. 1060 PRINT"THE REST OF THE DEVICES ARE STRAIGHT
  53. 1070 [153]"FORWARD AND WILL BE EXPLAINED IN THE
  54. 1080 PRINT"SIMULATION IT SELF. YOU WILL NOTE THE
  55. 1090 [153]"PRINTPHOTON TORPEDOSSYS ARE AIMED IN THE SAME
  56. 1100 PRINT"WAY [153]NAVIGATE[158] IS SET.
  57. 1110 [153]"THERE IS ALSO A PRINTTRACTOR BEAMSYS WHICH
  58. 1120 PRINT"CAN BE USED TO PULL IN A [150]KLINGON[158] IF HIS
  59. 1130 [153]"POWER LEVELS ARE VERY LOW.
  60. 1140 PRINT"THE [153]COMPUTER[158] HAS 5 FUNCTIONS AND IF
  61. 1150 [153]"YOU PLAY WITH THEM YOU'LL PICK UP THEIR
  62. 1160 PRINT"USES FASTER THAN I CAN EXPLAIN THEM.
  63. 1170 [141]60
  64. 2000 [153]"LOADTHE PRINTCOMPUTER LIBRARYSYS AND PRINTLONG RANGE
  65. 2005 PRINT"SCAN[158] ARE COLOUR CODED DEPENDING ON
  66. 2010 [153]"WHAT OR WHO IS IN WHICH QUADRANT.
  67. 2030 PRINT"THE COLOURS IN ORDER OF PRIORITY ARE:
  68. 2035 [153]"  OPENBLUE    218  ENTERPRISESYS LOACTION
  69. 2040 PRINT"  [150]RED     316  KLINGONS[158] PRESENT
  70. 2050 [153]"  PRINT#GREY    014  STARBASESYS PRESENT
  71. 2060 PRINT"  [153]GREEN   002  [158]SAFE QUADRANT
  72. 2070 [153]"  SYSYELLOW  ***  UNKNOWN AREA
  73. 2080 PRINT"WHAT THE NUMBERS MEANS IS SIMPLE
  74. 2090 [153]"FOR EXAMPLE THE OPEN218SYS ABOVE INDICATES:
  75. 2100 PRINT"  TOTAL [150]KLINGONS[158]:[159] 2 [158]- TWO [150]KLINGONS[158]
  76. 2110 [153]" TOTAL PRINT#STARBASESSYS:OPEN 1 SYS- ONE PRINT#STARBASESYS
  77. 2120 PRINT"     TOTAL STARS:[159] 8 [158]- EIGHT STARS
  78. 2130 [153]"IF A QUADRANT SHOWS NO STARS THEN IT
  79. 2140 PRINT"INDICATES A [150]NEBULA[158]. SCANS CAN'T
  80. 2150 [153]"PENITRATE THE GAS CLOUD OF A DEFNEBULASYS.
  81. 2800 GOSUB60
  82. 3000 PRINT"[147]THE [153]SHORT RANGE SCAN[158] MAY CONTAIN SEVERAL";
  83. 3010 PRINT"DIFFERENT OBJECTS. FIRST THERE WILL
  84. 3020 [153]"ALWAYS BE AN ENTERPRISESYS (UNLESS YOU BLOW";
  85. 3030 [153]"UP). IF YOUR NOT IN A DEFNEBULASYS,YOU WILL
  86. 3040 PRINT"WILL SEE DISTANT AND CLOSE STARS. THE
  87. 3050 [153]"STARS ARE FOR SHOW ONLY BUT THE CLOSE
  88. 3060 PRINT"ONES WILL BLOCK TORPEDO FIRE AND
  89. 3070 [153]"STARSHIP MOVEMENT.
  90. 3080 PRINT"THERE MAY ALSO BE A VERY TINY OBJECT
  91. 3090 [153]"WHICH LOOKS LIKE A BRIGHT (DISTANT) STAR";
  92. 3100 [153]". DON'T GO NEAR THIS, IT'S A DEFSPACEMINESYS
  93. 3110 PRINT"WHICH CAN RUIN YOU SIMULATION.
  94. 3120 [153]"THE OTHER OBJECTS ARE JUST THE DEFKLINGONSSYS
  95. 3130 PRINT"AND A [152]STARBASE[158], BOTH OF WHICH ARE EASY
  96. 3140 [153]"TO INDENTIFY.
  97. 3150 PRINT"FUTURE VERSIONS MAY HAVE OTHER SHIPS
  98. 3160 [153]"OF UNKNOWN ORIGIN. PRINTTACTICAL SENSERSSYS WILL";
  99. 3170 [153]"PROBE THE SHIP OR OBJECT.
  100. 3500 GOSUB60
  101. 4000 PRINT"[147]IF YOU ARE IN A [150]NEBULA[158] YOU WILL JUST
  102. 4010 [153]"SEE THE ENTERPRISESYS SURROUNDED BY A GAS
  103. 4020 PRINT"CLOUD. THE [153]LONG RANGE SCAN[158],[153] LIBRARY
  104. 4030 [153]"COMPUTERSYS,PRINT PHASERSSYS,PRINTTRACTOR BEAMSYS ANDPRINT
  105. 4040 PRINT"SHIELDS[158] WILL NOT FUNCTION IN THIS
  106. 4045 [153]"CONDITION.
  107. 4050 PRINT"THE OBJECT WILL BE TO FIND THE [150]KLINGON[158],
  108. 4060 [153]"IF HE'S THERE AT ALL. TO SEE HIM YOU
  109. 4070 PRINT"HAVE TO MOVE THE ENTERPRISE[158] ALONG SIDE
  110. 4080 [153]"OF HIM. HE WILL FIRE RANDOMLY WITH HIS
  111. 4090 PRINT"TOPEDOES SO WATCH OUT, REMEMBER YOUR
  112. 4100 [153]"PRINTSHIELDSSYS ARE OUT.
  113. 4110 PRINT"LEAVE ALL [150]NEBULAS[158] TO THE END BECAUSE
  114. 4120 [153]"IT REALLY CUTS INTO TO STARDATE TIME.
  115. 4130 PRINT"FOR EVERY DECIMAL (WARP) MOVE, YOUR
  116. 4140 [153]"STARDATE IS INCREASED BY THE SAME AMOUNT";
  117. 4150 [153]"TO A MAXIMUM OF 1.
  118. 4800 GOSUB60
  119. 5000 PRINT"[147]IN THIS VERSION OF [153]STAR TREK[158] THE
  120. 5010 [153]"DEFKLINGONS SYSWILL MOVE FROM QUADRANT TO
  121. 5020 PRINT"QUADRANT AS THE ENTERPRISE[158] MOVES TO
  122. 5030 [153]"THE NEXT QUADRANT. HOWEVER THE DEFKLINGONSYS
  123. 5040 PRINT"WON'T MOVE IF THE FOLLOWING IS TRUE:
  124. 5050 [153]"1. THE DEFKLINGONSYS IS GUARDING A PRINT#STARBASESYS
  125. 5060 PRINT"2. WITHIN 1 QUADRANT OF THE ENTERPRISE[158]
  126. 5070 [153]"3. NO DEFKLINGONSYS CAN BE FOUND (TO MOVE)
  127. 5080 PRINT"4. LOST IN A [150]NEBULA[158]
  128. 5090 [153]"ONLY ONE DEFKLINGONSYS WILL MOVE AT A TIME
  129. 5100 PRINT"(THIS CAN BE INCREASED IF NEEDED).
  130. 5110 [153]"ALSO INCLUDED IS A FEATURE THAT REQUIRES";
  131. 5120 [153]"THE USE OF A JOYSTICK. IF THEPRINT LIBRARY
  132. 5130 PRINT"COMPUTER[158] MALFUNCTIONS BEFORE A DOCKING
  133. 5140 [153]"PROCEDURE THEN YOU WILL BE REQUIRED TO
  134. 5150 PRINT"FLY THE ENTERPRISE [158]INTO THE DOCKING
  135. 5160 [153]"BAY. PLEASE BE CAREFUL AS YOU CAN ONLY
  136. 5170 PRINT"TOUCH THE DOCKING BAY FOR 2 SECONDS, ANY";
  137. 5180 PRINT"LONGER AND THE SIMULATION IS OVER
  138. 5190 [153]"(USE CONTROL PORT 2, PORT 1 WILL FOUL
  139. 5200 PRINT"UP THE OPERATION). YOU MUST FIX THE
  140. 5210 [153]"PRINTCOMPUTERSYS BEFORE YOU CALL THE PRINTSRSSYS AGAIN.";
  141. 5800 [141]60
  142. 6000 [153]"LOADYOU WILL NOTE THAT THE PRINTPHASERSSYS WILL
  143. 6010 PRINT"PASS THROUGH (OR AROUND) ALL THE
  144. 6020 [153]"OBJECTS ON THE PRINTSHORT RANGE SCANSYS. THIS
  145. 6030 PRINT"WILL BE CHANGED LATER.
  146. 6040 [153]"WHEN ADEF KLINGONSYS FIRES HE CAN'T HIT ANY
  147. 6050 PRINT"OF THE[150] SPACEMINES[158] OR OTHER [150]KLINGONS[158]
  148. 6060 [153]"SO DON'T BE CONFIDENT THAT HIS SHOT
  149. 6070 PRINT"WILL MISS YOU.
  150. 6080 [153]"THE REST OF THE INFORMATION CAN BE
  151. 6090 PRINT"PICKED UP AS YOU PLAY THE GAME. BUT
  152. 6100 [153]"BECAUSE OF THE DETAIL PUT INTO MOST OF
  153. 6110 PRINT"THE SYSTEMS, IT MAY TAKE A WHILE TO PICK";
  154. 6120 PRINT"UP HOW THEY WORK OR INTERACT WITH EACH
  155. 6130 [153]"OTHER. I MUST POINT OUT THAT MAJOR
  156. 6140 PRINT"CHANGES WERE MADE FROM THE ORIGINAL
  157. 6150 [153]"VERSION.
  158. 6160 PRINT"PLEASE WATCH FOR REALISM IN HOW THE
  159. 6170 [153]"SYSTEMS OPERATE.
  160. 6800 GOSUB60
  161. 7000 PRINT"[147]              [150]ATTENTION:[158]
  162. 7010 [153]"AS OF NOW, OPENVERSION IISYS IS AVAILABLE.
  163. 7020 PRINT"OVER 30 IMPROVEMENTS HAVE BEEN MADE AND
  164. 7030 [153]"SOME OF THESE INCLUDE:
  165. 7040 PRINT"1) PLANETS, SOME WITH A SATURN RING.
  166. 7050 [153]"2) IMPROVED CHARACTER SET.
  167. 7060 PRINT"3) BETTER [153]SHORT RANGE SCAN[158] WITH
  168. 7070 [153]"   CONTINUOUS MOTION.
  169. 7080 PRINT"4) ENTERPRISE[158] COMES INTO A NEW QUADRANT
  170. 7090 [153]"   SMOOTHLY RATHER THAN ABRUPTLY.
  171. 7100 PRINT"5) CONDITION RESET, THIS CORRECTS THE
  172. 7110 [153]"   CONDITION STATUS ON THEPRINT SRSSYS IF THE
  173. 7120 PRINT"   SITUATION ARISES.
  174. 7130 [153]"6) FASTER PRINTSRSSYS AND PRINTLIBRARY COMPUTERSYS
  175. 7140 PRINT"   PRESENTATION.
  176. 7150 [153]"7) NEW PRINTSRSSYS UNSERVICEABLE PRESENTATION.
  177. 7160 PRINT"8) LESS SCREEN SCROLLING.
  178. 7170 [153]"9) ABILITY TO TAKE PRISONERS AFTER THE
  179. 7180 PRINT"   [153]TRACTOR BEAM[158] PULLS THEM IN.
  180. 7185 [153]"10) YOU CAN INTERROGATE TO FIND OUT
  181. 7186 PRINT"    THE LOCATION OF OTHER [150]KLINGONS[158].
  182. 7190 [153]"11) A MINIATURE PRINTLIBRARY COMPUTERSYS ON THE
  183. 7200 PRINT"    [153]LONG RANGE SCAN[158], THIS HELPS IN THE
  184. 7210 [153]"    NAVIGATION OF THE ENTERPRISESYS.";
  185. 7990 [141]60
  186. 8000 [153]"LOAD DEF       VERSION II IMPROVEMENTS:SYS
  187. 8010 PRINT"12) NEW DISTANCE/DIRECTION CALCULATOR."
  188. 8020 PRINT"13) IMPROVED SOUND.
  189. 8030 [153]"14) FASTER BETWEEN QUADRANT TIME.
  190. 8040 PRINT"15) NEW AND ACCURATE [153]DAMAGE CONTROL[158]
  191. 8050 [153]"16) SELF DESTRUCT SEQUENCE IDENTICAL TO
  192. 8060 PRINT"    THE MOVIE [159]STAR TREK III, THE SEARCH
  193. 8070 [153]"    FOR SPOCKSYS. (HOPE I DIDN'T GIVE
  194. 8080 PRINT"    ANYTHING AWAY!)
  195. 8090 [153]"17) THE BEST IMPROVEMENT TO DATE - THE
  196. 8100 PRINT"    [150]KLINGONS[158] WILL FIRE FIRST IF YOU'RE
  197. 8110 [153]"    REACTION TIME IS SLOW.
  198. 8115 PRINT"18) A GENERAL CLEAN UP OF ALL SYSTEMS
  199. 8120 [153]
  200. 8130 [153]"ALSO THE MACHINE ROUTINES HAVE BEEN SET
  201. 8140 PRINT"UP TO BE VERY MODULAR TO ALLOW THE FOR
  202. 8150 [153]"LOADING OF EXTRA DATA OR GRAPHICS. THIS
  203. 8160 PRINT"WILL LET ME PROGRAM ADVENTURES BOTH
  204. 8170 [153]"ON AND OFF THE ENTERPRISESYS. THEY MAY
  205. 8180 PRINT"INCLUDE SUCH THINGS AS GOING DOWN ON
  206. 8190 [153]"PLANETS TO SEARCH FOR DI-LITHIUM
  207. 8200 PRINT"CRYISTALS OR TO GO ABOARD A [150]KLINGON[158]
  208. 8210 [153]"BATTLE CRUISE.  ALMOST ANYTHING IS
  209. 8220 PRINT"POSSIBLE.";
  210. 8990 GOSUB60
  211. 9000 PRINT"[147]BECAUSE OF THE RESPONSE TO VERSION I,
  212. 9005 [153]"FROM ALL OVER NORTH AMERICA AND EUROPE,
  213. 9010 PRINT"I'VE STARTED A [159]STAR TREK CLUB[158] IN WHICH
  214. 9020 [153]"ONLY THE MEMBERS WILL GET OPENVERSION IISYS.
  215. 9030 PRINT"
  216. 9040 [153]"CLUB MEMBERS WILL RECEIVE A REGULAR
  217. 9050 PRINT"NEWSLETTER WITH TIPS ON PLAYING
  218. 9060 [153]"STRATIGIES AND WHO HAS THE HIGHEST
  219. 9070 PRINT"EFFICIENCY RATING. MANY MORE IDEAS ARE
  220. 9080 [153]"PLANNED IN THIS AREA.
  221. 9090 PRINT"
  222. 9100 [153]"TO JOIN THE CLUB AND GET A DISK, YOU
  223. 9110 PRINT"MUST SENT IN $4.00 MEMBERSHIP FEE (TO
  224. 9120 [153]"COVER MAILING COSTS) AND $18.00 FOR THE
  225. 9130 PRINT"ACTUAL DISK, (OR $15.00 IF YOU SUPPLY
  226. 9140 [153]"THE DISK) PLUS APPLICABLE SALES TAX.
  227. 9150 PRINT"
  228. 9160 [153]"ONLY THE PEOPLE WHO JOIN THE CLUB WILL
  229. 9170 PRINT"BE ABLE TO RECEIVE [159]VERSION III[158], WHICH
  230. 9180 [153]"IS NOW UNDERWAY.  IT WILL HAVE A WHOLE
  231. 9190 PRINT"HOST OF NEW SYSTEMS THAT WOULD EVEN
  232. 9200 [153]"IMPRESS MR. SPOCK. ONLY MEMBERS WILL
  233. 9210 PRINT"FIND OUT WHAT THEY ARE!
  234. 9990 [141]60
  235. 10000 [153]"LOAD  SO TO JOIN THE CLUB JUST SEND A NOTE
  236. 10010 PRINT"PLUS PAYMENT TO THE ADDRESS BELOW AND
  237. 10020 [153]"BEFORE YOU KNOW IT, YOU'LL BE PLAYING
  238. 10030 PRINT"[159]STAR TREK V2[158].
  239. 10040 [153]"
  240. 10050 PRINT" IF YOU HAVE ANY QUESTIONS AT ALL, JUST
  241. 10060 [153]"CALL OR SENT ME A LETTER AND I'LL TRY
  242. 10070 PRINT"TO HELP YOU OUT.  I'M ALSO OPEN TO
  243. 10080 [153]"IDEAS OR SUGGESTION WHICH CAN BE PUT
  244. 10090 PRINT"INTO THE GAME.
  245. 19000 [153]"I'D LIKE TO THANK GEOFF SOLOMON AND
  246. 19040 PRINT"JOHN PAUL BRADFORD FOR THEIR HELP IN
  247. 19050 [153]"GETTING THE SYSTEMS REALISTIC.
  248. 19090 PRINT"         GOOD LUCK CAPTAIN...[158]
  249. 19100 [153]"          BY: DAVE NEALE
  250. 19110 PRINT"              P.O. BOX 1324
  251. 19120 [153]"              MEAFORD, ONTARIO
  252. 19130 PRINT"              N0H-1Y0  (519) 538-1758
  253. 19800 [153]"LOAD";[199](34);"STAR TREK BOOT.C";[199](34);",8ONONON"
  254.